Public Class MyDataGridView

    Inherits DataGridView



    Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean

        Select Case keyData
            Case Keys.Enter
                SendKeys.Send("{TAB}")
                SendKeys.Send("{F2}")
                Return True
        End Select
    End Function

End Class


Public Class DisplayControl

    Private mSelectObject As Object
    Private mValue As Object
    Private mKey As Object


    Public Property SelectObject()
        Get
            Return mSelectObject
        End Get
        Set(ByVal value)
            mSelectObject = value
        End Set
    End Property

    Public Sub New()

    End Sub

    Public Sub New(ByVal FrmName As Object)
        mSelectObject = FrmName
    End Sub
End Class

Public Class ItemList


    Private mValue As String
    Private mKey As String


    Public Property Value() As String
        Get
            Return mValue
        End Get
        Set(ByVal value As String)
            mValue = value
        End Set
    End Property

    Public Property Key() As String
        Get

            Return mKey
        End Get
        Set(ByVal value As String)
            mKey = value
        End Set
    End Property

    Public Sub New()

    End Sub

    Public Sub New(ByVal s_Value As String)
        Me.mValue = s_Value
    End Sub

    Public Sub New(ByVal s_Value As String, ByVal s_Key As String)
        Me.mValue = s_Value
        Me.mKey = s_Key
    End Sub
End Class
